TITLE: 
TYPE: 
SYMBOLS: 
CAPACITY: 

METHOD OF USE: 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
STATISTICAL LIBRARY 

KSL 1.97 - 305 
Maxplane (An Oblique Factor Rotation Program) 
Entire program 
Defined as used 
Number of factors < 20 
Number of variables < 111 

Prepare input data as indicated on the Input Data and Format 
section. Just in passing, the time to output data and to print 
the output data increases with increasing d. The three 
hyperplane thicknesses allow increasingly finer determination 
of the simple structure as the fineness of the trial rotations 
is increased. The greatest hyperplane thickness is used only 
on the first set of trial rotations for each axis pair. The 
middle hyperplane thickness is used on the succeeding sets of 
trial rotations until 50 ^« of the points for the particular 
axis pair being used is within that thickness and thenceforth 
the least hyperplane thickness is used for trial rotations 
of that axis pair. 

The program tape is read into Illiac with a clear start. After 
the scope heading at the leading end of the program tape has 
been read, Illiac will stop on a left hand 20 instruction. 
This should be bypassed by moving the Black Switch to its 
Start position. After reading in the rest of the program 
tape, Illiac will stop on a 2k instruction in the left hand 
side of location 1. Moving the Black Switch to Start or 
Ignore will cause the data tape to be read in. 
If the user made an error on the data tape, the reader will 
stop after the terminating symbol (N, J, F, or L) of the 
offending block of data has been read, and the computer will 
stop on a left hand FF instruction whose address will indicate 
the type of error made. The Error Stops section 
lists the possible errors and their corresponding address 
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numbers. After the error is corrected and/or if new data 
is to be used, the program tape must be read in again. 
After input data has been successfully read, computation 
begins automatically. Once the computation has started, 
the user has a number of alternatives. Moving the Black 
Switch to Ignore initially will allow the program to run to 
its ultimate end. The computer will then try to read In data for a 
new computation. If, at any time, it is desired to interrupt 
the routine, the Black Switch should be returned to its 
center (Obey) position. After the rotation cycle being 
computed is finished, the computer will stop on a right hand 
20 instruction. Moving the Black Switch to Start or Ignore 
will allow the computation to resume as if nothing had happened; 
however, if the White Switch is moved all the way up and then 
all the way down again, the first three elements of the out- 
put data (i.e. r, the hyperplane counts and percentages, and 
the correlation matrix) will be punched and the computer will 
stop on a right hand 2k instruction. In tjiis manner the 
progress of the computation can be checked if it is desired. 
From this condition two alternatives are again available. 
Moving the Black Switch to Start or Ignore again allows the 
computation to continue as if nothing had happened; however, 
moving the White Switch all the way up and then all the way 
down again will cause a complete data output. The output 
data is the best attained before the interrupted program 
stops. In this way the program can be run in parts, and all 
that is required to resume the program once it has been 
interrupted is to use the output tape from the interrupted 
run^ substituting the V Q matrix for the V matrix on the output 
tape^as the input tape on resumption of the problem. Care 
must be taken to start reading after the correlation matrix 
on the output tape since the first three output data elements 
are not part of the required input data. Five carriage return- 
line feed and fifteen two hole delay characters are punched 
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on the ©utput tape after the correlation matrix in order to 
make the area to be placed in the reader for reentry of the 
tape as visually evident as possible. 

If the Black Switch is moved to its center (Obey) position 
at any time during the complete data output --punching or 
scope plotting, the computer will stop on a right hand 2k 
instruction upon completion of the data output, and a final 
pair of alternatives is available to the user. If the Black 
Switch is moved to Start or Ignore, new data will be read in 
for a new computation and all the instructions given for the 
original data set apply. If the White Switch is moved all 
the way up and then all the way down again, however, the 
computation will cammemie from the condition that was left 
upon data output. This alternative allows a complete check 
of the progress of a problem while still allowing the computa- 
tion to continue if it is desired. 

If it is desired to run more than one problem, the data for 
the other problems can be put on the same data tape as the 
first problem's data, and as long as the Black Switch is in 
the Ignore position the new data will be run jipon the completion 
of the Immediately preceeding problem. The above described 
program interrupts can be made during the calculation of 
any or all of the sets of data, of course. An uninterrupted 
run can be accomplished by moving the Black Switch to the 
Ignore position after the data tape is in the reader! the run 
is completed when tlje .data tape reads off the end of the reader. 
INPUT DATA AND FORMAT! d: Number of digits after decimal point in output matrices 

Format : +, one of the numbers: 1 - 9* N 
t, : Greatest hyperplane thickness 
t : Middle hyperplane thickness 
t : Least hyperplane thickness 
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Format ; +, 0, Decimal point, thickness value as an 
n place decimal fraction (n < 10 ) for each 

of the three thicknesses no scaling is 

required. The third thickness is followed 
by an N 
\ Q : A unit matrix if a Centroid V Matrix is used, or the \ 
output matrix from Oblimax or any similar Post -Centroid 

Routine (maximum size 20 x 20). 

Format : Sign (+ or -), 0, decimal point, element value 
as an n place decimal fraction (n < 11 ) for 
each element in the matrix (0 elements are 
written as + only, unit elements as +1 or -1 
only). (Note: decimal points are not required). 
Matrix elements are ordered by columns every 
column is suffixed by a J. 
In addition, the last column is suffixed by an 

F after its J no scaling is required. 

V Q : V matrix output of the Centroid Routine always 

Format : Sign (+ or -), 0, decimal point, element value 
as an n place decimal fraction (n < 11) for 
each element in the matrix (0 elements are 
written as + only, unit elements as +1 or -1 
only). (Note: decimal points are not required). 
Matrix elements are ordered by columns every 
column is suffixed by a J. 
In addition, the last column is suffixed by an 

L after its J ro scaling is required. 

Notes: Maximum size 111 x 20 

This matrix must have its vectors referenced 
to an orthogonal system and must be normalized 
such that the length of each vector is < 1.0. 
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ERROR STOPS: 


FF 1 




FF 2 




FF 3 




FF J* 




FF 5 




FF 6 




FF 7 




FF 8 




FF 9 



NOTE: 

OUTPUT DATA AND FORMAT: 



Improper terminating symbol on input of d 

Improper terminating symbol on input of t., , t„, t„ 

l 2 3 
Incorrect number of t's input 

Improper terminating symbol on input of X. ft 

Incorrect number of elements input in a column of \ n 

Incorrect number of columns input for X. n 

Improper terminating symbol on input of V n 

Incorrect number of elements input in a column of V n 

Incorrect number of columns input for Y n 

FF 16: Drum error — — sum check failed on the transfer of a 
block of information from the drum 

FF l6is FF 010 sexadecimal 



r: 



%: 



Number of rotation cycles carried out by the routine as 

an integer 

A three column block of information any row of which 

contains reading from left to right — — - a V matrix 

column number as an integer, the number of elements in 
that V matrix column -which are within the least hyperplane 
thickness as an integer, and the ratio of the number of 
elements in that V matrix column which are within the 
least hyperplane thickness to the total number of elements 
in a Y matrix colum* as a decimal fraction. 
The last row which is spaced off from the rest of the 
block has nothing in the column number column, the number 
of elements in the whole V matrix which are within the 
least hyperplane thickness as in integer, and the ratio 
of the number of elements in the whole V matrix which 
are within the least hyperplane thickness to the tofcal 
number of elements in the whole V matrix as a decimal 



frae 1 1 on 
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d: 
t 



r 



n 



Correlation matrix by columns 

See Input data and foraat 

See Input Data end Format 

See Input Data and Format 

See Input Data and Foraat 

Hew X formed by Mftxplane — — - has exactly the same 

format as the X. Q matrix used on input except that each 

element is printed to d places after the decimal point, 

V ■ V~ X. — — has exactly the same format as the V~ 
n n ^ 

matrix used on input except that each element is printed 



NOTE: 



DURATION: 



to d places after the decimal point. 
Scope Plots: One plot for every different axis pair in the hyperspace 
«... each plot has the axis pair plotted as if the axis 
vere orthogonal, each axis is labeled with its V matrix 
column number, the G matrix entry associated with the 
axis pair is in the upper right hand corner of the plot, 
and the projection of every V matrix point on the plane 
determined by the two axes is plotted. (Number of plots « 
n x fn-lj where n = number of columns in a X or V 
matrix). 
5 carriage return -line feed characters and 15 two hole delay 
characters are punched between the last element of the C matrix : 
and d on the output tape in order that the position where 
reading is to start if the output data is to be reentered to 
continue confutation can be easily found. (See Method of use 
section) . 

1. Read master tape — — 
150 sec. 

2, Head -input data 

0.07 + 0.004 (No. of factors) (No. digits in a factor 
matrix element) + 0.004 (No. of factors) (No. of variables) x 
(No. digits in a variable matrix element) sec. 
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5. Calculation time 

There is no way to estimate the calculation time since 

the data determines the number of operations within an 

iteration and the total number of iterations. Problems 

having 5 or less factors and 50 or less variables 

normally run in less than an hour. For longer problems, 

it is suggested that the problem be run for a fixed length 

of time. If the problem does not converge within that 

time it can be interrupted and continued at a subsequent 

time by the procedure described in "Method of Use" above. 

4. Punch and Plot Output Data 

o 
2 + l/2 (No. of factors) + l/6 (No. of factors) + 

\ /t (No. of factors) (No. of factors + No. of 

variables) + 3 (No. of factors -l) (No. of factors) sec. 
THE MAXPIANE PROCEDURE: See the article by R. B. Cattell and J. L. Muerle entitled 

"The 'Maxplane' Program for Factor Rotation to Oblique 
Simple Structure" published in the July i960 issue of 
Educatirfial and Paychological Measurement for the background, 
motivation, and description of the method for this program. 
Section k of the article gives a description of the program 
and the motivation for some of the programming techniques 
used. 



DAT E September 9, i960 

PROGRAMMED B Y ^ • i • - : WIu*aI < _. 



AND N. E. Wiseman 



APPROVED BY 




n.i 



MAIN ROUTINE BLOCK DIAGRAM 
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Start 



s 



Clear Rotation Cycles Count) 

4» 



Set ? n =V °| 



I Clear Number of Times ComrEl 



Set Initial Rotating Axis Instruction Words I 

4- 



Input Data 
Form 1% of 



r *n\ 



Set YX Multiplication"! r- 



| Bring Rotation Subroutines from Drurn^ 
INev Problem?/ 



Form V n ' = V n \ n , Cft , and Z 



I if 



No 



Perform a Rotation) 



Set XS Multiplication] 




Set VX Multiplication 
Form V = VA 1 



^ 



jC£n_ 



Form C and £ 
Bp ^ 



|(f n - f ) < 0.01 y j 

Yes i X No 



increment Number of Times. Coiyrg t Clear No. of Times Coul^ 



£ 



> f ? 



Yes i 



Set f = f ] 



______ "^U^" 

Store X as Best X 



^E 



No 



Set VX Multiplication) 

j Store Best X as X T 
4. n 

fForm V ' = V_\ ' 
t. , n n . 



Form C ' and Z 

■ 4^ n 



[Has Correct Number of Times Count been Attained? 
Yes |r — r J, No 



Black Svitch Stopj 
4^ White Sv. 1 Black fly. 



Zf 



[ Bring Input -Output Subroutines from Drum) 



' Short Print Data/ 

I Plot DaTaT 
>k 

|Black Svitch Stop! 

White SvJ i Black Sv. 



Bring Input -Outpu t Subroutines from Drum 
(Short Print Data/ 

4^ 



Black Svitch Stop 



| White Sv, f Black Sv. 



Bring Rotation Subroutines from Drum I 
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INPUT SUBROUTINE BLOCK DIAGRAM start 

V 

I Input d 1 
' Store d, Output Significant Digits Constant 1 

1A = 0?1 



Yes J, 4^ No 

Input t ± , t 2 , t I IFF Stop'^T , 



1A =0? I 
Yes X j No 

(3 Q uantities Read in?|\FF Stbp fe ) 

Yes ~J " >JNo 

[Clear X Col umn Counter) |FF Stop ffj" 
r~~~r " ~ ;y ~ " _l 



Input a Column of \ 



0. 



lo 



2 



q, i 1 \* 1 

FLStOEja^ |tFFSton #M 



\ Column Count=0?[|X n Column Count = k? 



Yes J^ 



Store k = 
No. of 
Elements 
Read in 



^ No 



Yes 



No. of Ele- 
ments Read 
in = k? 



Set k = 
No. of 

words to 
"be trans- 
ferred in 
Drum Load 
Entry 



Yes 



4" No 



vp No 

)FF Stop #6l 



FF Stop #5 1 1 Clear V" Column Counter 

» I ■!■— — Jfc— — ^— — — II 'M il I ■■ 1LB-M I It I II. 



n/ 



Load Column of \ on Drum I 



[Index X Column Drum Addresses 

I Increase \ Column Count by 1 I 
i iLr — _ — I 






4- 



Input a Column of V, 



Z£_ 



2 



4- 



.U ^ 



FFStop#7) \ \W Stop 



I V~ Column Count = k? 
LSI — 1 



Yes 



I i 



No 



c 



To next \ FF utop #9J 



V Column Count 
Yes -b " 



0? 



Subroutine 



Store n = No. 
of Elements 
Read in 



>foo 



No. of Ele- 
ments Read 
in = n? 



± 



Yesj >i^ No 

FFstop #01 



Set n = No. of words 
to be transferred 
in Drum Load Entry 

■*> 

Load Column of V n on Drum 



Index V n Column Drum Address and Increase Count by 1 
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ROTATION SUBROUTINE BLOCK DIAGRAM START 



Start 



lSet Initial Rotating Axis S Matrix and V Matrix column Drum Addresses 1 
(Set Initial £ Matrix Column Drum Address! 
{Set a Matrix'to on Hrum I 
Ulear Kot.at.1ng Avlfi nnlumn r.mmV 



(Set Initial Against Axis S Matrix and V Matrix Column Drum Addresses \ 

1 Clear Against Axis Column. Count"! 
1 \y ' 



Load Rotating Axis Instruction Word! 



m 



Form Unit S Matrix Column I 



\ Bring Rotating Axis V Matrix and ^ Matrix Columns from Druml 



\ Rotating Axis Column Number = Against Axis Column ^umber?/ 

Yes d, - _ 

\ Increment Against Axis Column Count "by 1) 



f 



No 



index Against Axis S Matrix and V Matrix 
Column Drum Addresses 



JL. 



7 



pring Against Axis S Matrix and V Matrix Columns from Drum] 

\y 

Set Proper Hyperplane Thickness and Trial Rotation Degree 



Increment from Appropriate Rotating Axis Instruction Number 



I Greatest Hyperplane Thickness Being usedT"| 
Yes vl J JJo " 

lSet up Middle Hyperplane Thickness [ y^ 

Set Unrotated Acceptable Loading Count as Greatest and Unrotated 
Criterion Sum as Gr eatest 



iClear Number of Triaf Rotations Hnn^ 



From C- Matrix and Against Axis S Matrix Columns Determine] 
Angle Between Rotating Axis and Against Axis 



Will the Coming Rotation Make the Angle > Minimum 
Number of Degrees Between Axes? 



| Last Trial Rotation?) 



Yes 



4/ No 



>l No 

Set Greatest Criterion Sum 



2J 



Will the Next Rotation After the 
Coming Rotation make the Angle 
> Maximum Number of Degrees 
between Axes? 

Yes 4, . _ ~ I ^°" 

Set False Last Trial 
Rotation Indication 



JLast Trial Rotation?! 



Yes 



No 



^ 



Set up Next 
Trial Rotation 



ROTATION SUBROUTINE 
BLOCK DIAGRAM (Cont . ) 



- 11 - 



I Clear Column Entry 



Count 



/Clear Ac ceptable Loading Count and High Factor Loading Count 

JForm Rotation" donstantsl r" 



[form Rotatin g and Against Axis V Matrix Columns Entry Addressesj 

[(Rotating Axis Column Entry) x (Its Rotation Constant)! 

tiMainst_Axis Uolumn Entry) x (Tts Ro tation flnrm^TTTri 

jAdd these two flumfaefST 

Sum Within Hyperplane ThiclmessT| 

r Yes 4- 4>N Q 

[Increment Acceptable Loading Count Bv 1 ) laum > High Factor Loading Minimum?! 



Ir 



i _ I, ^ 

I Increme nt Column Entry Count bv 1^ 



Yes 4^ 

(Increment High Factor 
Loading C ount by 1 



& 




No 



/Last Column Entry? | 

. f , Yes ^ J No 

{^Acceptable Loading Count j+i/4 (Hi gh Factor Loading Count) > greate st Criterio^ 

£ y— _ 



Sum?{ 



1 Store Acceptable Loading Uount*an d Associate d Criterion gum as Urenf eTO 
I Store S Matrix Entry for this Trial dotation] 



No 



Yes>17 



USq. 



[Middle Hyperplane Thidmess Being UsedT? 

Yes ^ lie; 



> 50^-bof the Total Number of Points in a | 
Column in Greatest Acceptable Loading Count?/ 



Yes J, 

I bet up Least .Hyperplane Thickness! 



No 



4/ 



J Modify Appropriate Kotating Axis Instruction Number 



I in ^ope r fiota,ting fois instruc tion Word 

[judex Against Axis S Matrix and" V 



} 



trix Uolumn urum Actresses J 



.ncrement Against Axis Column Cmmt hv l I 

I -■J* 

Last Against Axis? F 



Yes 



4, No 

(Last Kota ting Axis?1 
YesT L No 



I Hext to last Against. Axis?) 



YesJ^ 

i Store S Matrix column on Drum f 



No 



[jndex Rotating Axis V Matrix wnd. tj Mb+.Hv Column Drum Addresses 1 
[.index *- Matrix Column. Drum Address ) 
/..Increment Rotating Axis Column Count bv 1 I 
I Last Kotating Axis? 1 



Yes V J No 

Incremen t Rotation Cycles Count bv lT 

Out of Subroutine 



LOCATION 


ORDER 


NOTES PAGE 1 KSL 1.97 


Abs* 


Rel. 


Sym. 


9 


















Maxplane Output Data 










J 












Maxplane C 


)utput Data 










00K 






7 





(Yl) 


00 7K 
00 K 




Drum transfer library subroutine on drum 


hf 





(o) 


00 F 
00 F 


1 


Type of matrix mult, switch (0=\S, + = VX) 




1 




00 F 

00 3500F 


) 


Drum add. of 1st element of X 




2 




00 F 
00 F 


) 


k = number of rows in \ 


50 


3 




00 F 

00 3920F 


"■ 

* 


Drum add. of 1st element of S 




k 




00 F 

00 k^kOF 


I 


Drum add. of 1st element of V n 




5 




00 F 


) 


n = number of rows of V 




6 




00 F 
00 F 
00 658OF 


J 

■ 

* 


Drum add. of 1st element of V 

n 




7 




00 F 
00 21F 


) 


X column drum address increment 




8 




00 F 
00 112F 


1 


V column drum address increment 




9 




00 F 
00 F 


} 

1 


d = signif . digits on output data 




10 




00 F 


} 


Greatest hyperplane thickness = t 




ii 




00 F 
00 F 
00 F 


J 

■n 


Middle hyperplane thickness = t 




12 




00 F 


) 


Least hyperplane thickness = t-, 








00 F 


J 





LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


00 F 


r Rotation cycles count = r 


60 


13 










00 F 


J 




Ik 




00 F 
00 F 


J- Best total no. points within least hyp. th.=f 




15 




26 (Yl) 
00 F 


J- Drum address constant 




16 




00 IF 
00 F 


j" Left hand address increment constant 




17 




00 F 
00 10F 


t Scaling constant 




18 




00 F 
00 F 


I constant 




19 




00 F 

00 8820F 


f Drum add. of 1st element of L 




20 




00 F 

00 92^0F 


J — 




21 




00 F 
00 10F 


r Number of trial rotations /cycle 




22 




00 F 
00 9F 


Degree increment for gr. hyp. th. trial rot. 
) 


70 


23 




00 F 
00 kF 


V Degree increment for mid. hyp. th. trial rot. 




2k 




00 F 


r Degree increment for least hyp. th. trial rot. 




25 




00 2F 

00 F 

00 35F • 


J 
\ 

Minimum number of degrees between axes 

j 




2b 




00 F 
00 1^5F 


Maximum number of degrees between axes 

J 




27 




00 F 
00 10F 


1 Maximum number of times constant 




28 




00 F 


Number of times count = e 




Irr* -< 


i 


00 F 
00 F 


J 

Scope plot parameter 








00 F 


J 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


00 F 1 


r Drum add. of 1st element of best \ 


77 


30 










00 9660F j 


\ 




31 




00 F 

00 F j 


V Total no. points within least hyp. th. 




32 




00 F 
00 F 

00 99K 


) Number of points within least hyp. th. 

in each column of V by columns 
1 n j 


99 





C) 


00 F 
00 F 
00 20(') 
02 K 


Rotating axis instruction words 


119 


20 


CD 


00 F 


List of degrees for corresponding 








00 2F 




120 


21 
22 
23 

2k 

23 
26 

27 

op 

29 




00 F 
00 k-T 
00 F 
00 6F 
00 F 
00 8f 
00 F 
00 9F 
00 F 
00 10F 
00 F 
00 12F 
00 F 
00 lbF 
00 F 
00 18F 
00 F 
00 20F 
00 F 

00 27F 


rotation constants below 



-"- . 

LOCATION 


ORDER 
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Abs. 


Rel . 


Sym. 


: 
00 F 




130 


51 












00 36F 






32 




00 F 
00 45F 






33 


(■2) 


00 F 

00 9993 9082 7021 J 


' Rotating axis column rotation constant 




34 




00 F 

00 9975 6405 0262 J 






35 




00 F 

00 9943 2189 5369 J 






36 




00 F 

00 9902 6806 8743 J 






37 




00 F 

00 9876 8834 0598 J 






38 




00 F 

00 9848 0775 3013 J 






.39 




00 F 

00 9781 4760 0734 J 






to 




00 F 

00 9612 6169 5938 J 




l4o 


41 

42 

43 
iiii 

4 r : 




00 F 

00 9510 5651 6293 J 

00 F 

00 9396 9262 0785 J 

00 F 

00 8910 0652 4189 J 

00 F 

00 8090 1699 4375 J 

00 F 

00 7071 0678 1188 J 


/ 




46 


(■-■5) 


00 F 

00 548 9949 6703 J 


f Against axis column rotation constants 




i*r 




00 F 

00 0697 5647 3744 J 





LOCATION 


OBDER 


NOTES PAGE 5 KSL 1.97 


Abs. 


Rel. 


Sym. 


00 F 




l47 


48 










00 10^5 2846 3267 J 






^9 




00 F 

00 1391 7310 0959 J. 






50 




00 F 

00 1564 3446 5040 J 




150 


51 
52 
53 
5^ 
55 
56 
57 
58 




00 F 

00 1736 4817 7672 J 

00 F 

00 2079 1169 0821 J 

00 F 

00 2756 3735 5820 J 

00 F 

00 3090 1699 4377 J 

00 F 

00 3420 2014 3327 J 

00 F 

00 4539 9049 9738 J 

00 F 

00 5877 8525 2295 J 

00 F 

00 7071 0678 1188 J 






59 


(•4) 


00 F 

00 0174 6038 4746 J 


1 s """* "" rot "'" "" 




60 




00 F 

00.0549 6340 5973 J 




160 


61 
62 
63 
64 




00 F 

00 0525 5211 7633 J 

00 F 

00 0702 7041 7351 J 

00 F 

00 0791 9222 0162 J 

00 F 

00 0881 6349 0358 J 


1 



LOCATION 


ORDER 
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Abs . 


Rel. 


Sym. 


00 F 






±6k 


65 










00 1062 7828 0859 J 








66 




00 F 

00 1455 7269 2885 J 








67 




00 F 

00 1624 5984 8119 J 








68 




00 F 

00 1819 8511 7155 J 








69 




00 F 

00 2547 6272 4746 J 








70 




00 F 

00 5652 7126 4005 J 






170 


71 




00 F 

00 5000 0000 0000 J 

00 264K 


i 




264 





(02) 


40 F 
K5 F 


Plot points and axes library subroutine 
(Modified) 




1 




56 i5L 

46 4L 








2 




42 9L 
LJ F 








5 




LO 11L 
40 F 








4 




LJ F 
LO 12L 








5 




10 SF 
52 6L 






270 


6 

7 

8 

9 


— , 


LO 10L 
50 F 
JO 10L 
S4 F 
00 IF 
82 16F 
22 9L 

22 F 







LOCATION 


ORDER 
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Abs. 


Rel . 


Sym. 






:■■■ 


10 




LL 2048F 
OOF 




275 


11 
12 

13 
Ik 

15 




00 F 
00 F 
00 F 
00 F 
k2 26L 
k6 15L 
L5 F 
kO 11L 
L5 F 
kO 12L 




280 


16 

17 
18 

19 
20 




kl 2F 
26 18L 
L5 28L 

ih 27L 

k6 27L 

k2 27L 
LO 27L 
00 5F 
kO IF 
00 20F 






21 




JO 2F 
50 21L 


/ 




22 




26 L 
L5 2F 






25 




JO IF 
50 23L 






2k 




26 L 

19 6F 






25 




Lk 2F 
kO 2F 
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26 




36 17L 

22 F J 
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00 F 
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27 












00 F 








28 




00 F 
00 F 

00 3K 


S parameters for (6k) 




3 







00 F 

00 29(0) 


1 Scope display position parameter add. 




k 


1 




00 F 

00 965F 

00 293K 


| temporary storage address 

I 




293 



1 
2 

3 

5 
6 


(ok) 


ko Sk 

L5 S3 
IA 36L 
ko ISk 
LO 37L 
ko 2Sk 
K3 F 
kG 38L 
k2 8L 
50 13k 
JO 39L 
32 31L 
S5 F 
kO 3Sk 


Fast fraction display library subroutine 
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7 
8 

9 

10 
11 




L5 38L 
LO 40L 
46 38L 
32 F 
L7 Sk 
10 2F 
L6 Sk 
32 13L 
IA 4lL 






_ 






ko Sk 
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320 



Rel. 
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13 
Ik 

15 
16 

17 
18 

19 
20 
21 
22 

23 
2^ 
25 
26 

27 

2d 
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ORDER 



F5 *UL 

50 S4 
22 l^L 
kO S^4- 

51 S^ 
00 3F 
IA 31L 
i+2 20L 
Lk 39L 
42 19L 
S5 F 
40 S^ 
L5 2Sh 
IA 37L 
40 2S4 
L5 F 
40 1S4 
50 F 
S5 F 
40 4s4 
10 3F 
JO 42L 
S5 F 
50 1S4 
JO ^3L 
26 27L 
FO 4lL 
36 29L 
iA 2S4 
82 l6F 
3d 25L 
LU 3S4 
82 8f 
26 27L 
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322 



330 



Rel. 



29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 

39 
ifO 

42 



Sym.i 



Fl kSk 

36 7L 
30 1S4 
ho 1S4 
22 21L 
S3 kk-L 
kO 3S^ 
50 Sk 
lf> S^ 
36 35L 
F5 38L 
22 15L 
L3 8L 
22 15L 
7L F 
00 IF 
00 80F 
00 F 
80 F 
00 5^L 
LL F 
00 12F 
00 IF 
00 F 
80 F 
00 F 
87 2168F 
78 192 7F 

43 3132F 

3N 96 3F 
12 89F 
J6 2027F 
hS 332 3F 
7J 4067F 
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339 


46 










94 3019F 
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47 

48 

49 
50 

51 
52 
53 
54 

55 

56 




52 3171F 

20 2251F 

19 13F 
SN 4067F 
52 98F 
4f 4083F 
12 1149F 
LF 2027F 
73 3135F 
3N 3019F 
52 97F 
j6 3019F 

21 1150F 

sj 3019F 

5S 3133F 
3N 4059F 
5S 3133F 
SN 3035F 
08 2383F 
31 24f 
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57 
58 
59 
60 
61 
62 




42 3120F 
00 F 
49 1393F 
N3 8F 
4k 1394F 
42 3120F 
09 2517F 
69 3104F 
08 2382F 
67 784F 
4s 330F 






1 




OJ 536F 
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29 1495F 
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63 










IN 579F 






6k 




08 3450F 
75 l6F 






65 




4s 475F 
55 5872F 






66 




42 24f 

10 F 




56O 


67 




01 24F 

i8f 

00K 




^OJ. 





(PI) 


40 F 


P 


XY dF 




1 




L5 27L 

S4 F 




50 pF 


p+1 


26 xF 




2 




42 25L 
46 IL 


X=5 - is punched if A is negative 
+ is punched if A is positive 




5 




40 2F 
92 96IF 
56 6l 


x=J - is punched if A is negative 

Space is punched if A is positive 

-39 
Y=0 Integer A x 2 is punched 




4 




L5 F 
36 6l 


Y=2 Correctly rounded fraction A is 
punched 

d=10q + s 




5 




92 706F 


s=digits before decimal point (l< s < 10 ) 




6 




22 6L 
92 642F 

50 26L 


q=total number of digits punched 
(1 < d < 11) 




7 




22 8L 
46 IL 






8 




75 26L 
L5 IL 
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9 
10 




LO 19L 
52 7L 
S5 F 
40 IF 
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L5 2F 

00 6f 
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12 










52 lJ+L 






15 




L7 F 
66 IF 


... _.... . ... 




Ik 




25 15L 
67 IF 






15 




L7 F 
Sk F 


■ ■ 




16 




kO F 
50 F 


■ 




17 




75 26L 

00 56F 






18 




82 kF 
10 40F 
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19 
20 
21 




S4 10F 
40 F 
L5 IL 
LO 16L 
^6 IL 
00 9F 






22 




56 25L 
92 645F 


1 
■ 




25 




L5 2F 
XO 19L 


f 




2k 




k6 2F 
00 10F 






25 




52 16L 
22 F 






26 




00 F 
00 10F 
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82 101 5F 
00 IF 
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(N12) 


00 K 

j 


Infraput library subroutine on drum 
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Abs. [Rel. 


Sym. 


OOK 






J 




• k2Q 





(-) 


K5 F 

k2 (-18) 


| Plant link 






1 


(-D 


52 9(0) 
50 (-1) 


Store d in 9(0) 




kjo 


2 




26 (H12) 

kO F 


| A = 0? 






3 




L3 F 
36 (-2) 


J (H termination? ) 






k 




FF IF 
50 F 


No: FF stop / 1 
- Waste order 






5 


(-2) 


50 10(0) 
50 (-2) 


J Yes: store t ± , tg, t i n 


10(0), 11(0), 









26 (N12) 
ko F 


f respectively 
1 A = 0? 






7 




L3 F 
32 (-3) 


(N termination?) 






8 
9 


(-3) 


FF 2F 
L5 2l(N12) 
LO (-2k) 
kO F 


No: FF stop // 2 
\ Yes: exactly 3 t's 
read in? 






10 




L3 F 

32 (-k) t 








11 


(-*) 


FF 3F 


No: FF stop / 3 




kko 


12 
13 


(-5) 


M ( ) 
50 10 ( ) 
50 (-5) 
26 (KL2) v 


* Yes: clear X^ col. count 
I Input column of X^ 






Ik 




Lk (.7) 
^2 (-6) 


I Modify R.H. add. of 
) (-6) by contents of A 






15 


(-6) 


L3 ( ) 
50 F 


- \\~ col. count | to A 
Waste order 




. 


16 


(-7) 


26 F 
FF kF 

oo (-7) 1 


If, on input, A was — 
0: FF stop^ k 
Address constant 
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Rel. 


Sym. 


32 (-8) ' 


[ 1: \~ column count = 0? 




kk5 


17 










22 (-12) i 
■ 


1 






18 




L5 2(0) 

22 (-13) ! 


| 2: Xq column count = k? 






19 


(-8) 


FF kF 
kl 2(0) 


3: FF stop f/ k 
Yes: clear 2(0) 






20 




L5 2l(N12) 
LO (-5) 


r Form k = number of rows in \~ 






21 




k6 2(0) J 
k6 (-11) 


in L.H. add. of 2(0) 

k = number words to drum 




k^O 


22 
23 




L5 15(0) 
L4 1(0) 
kO (-10) 
50 F 


V Set drum address of 1st column c 

) 

Waste order 


* \ 




2k 


(-9) 


JO 10 ( ) 
50 (-9) 


9 Load column of X~ on drum 






25 


(-10) 


26 (Yl) 

00 F 








26 


(-11) 


00 F 












L5 (-10 ) "y Increment drum starting add. for next ^ cc 




27 




I> 7(0) 
kO (-10) 


> 






28 




F5 ( ) 
^0 ( ) 


) '-"" " '^ M " l 






29 


(-12) 


26 (-5) 

kl F 


Input next X^ col. 
No: clear 






30 




L5 21(N12) 
LO (-5) 


I k elements read in? 

i 






31 




LO 2(0) 






46o 


32 




kG F 
L3 F 
36 (-9) 


Yes: load A~ col. on drum 






33 


(-13) 


FF 5F 
10 20F 


No: FF stop ft 5 

1 
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LO ( ) 
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3k 












40 F 






35 




L3 F 
32 (-14) 


- 




36 


(-H0 


FF 6F 
^11( ) 


No: FF stop // 6 

Yes: clear V~ col. count 




37 


(-15) 


50 10 ( ) 

50 (-15) 


f Input column of V Q 

1 




38 




26 (N12) 

L4 (-17) 


t Modify R.H. add. of (-16) by contents of A 




39 




42 (-16) 
L3 1( ) 


- JV col. count J to A 




40 


(-16) 


50 F 
26 F 


Waste order 

If, on input, A was — 




4l 


(-17) 


FF 7F 

00 (-17) 


0: FF stop / 7 
Address constant 


470 


42 




32 (-19) 
22 (-23) 


\ 

1: V Q column count = 0? 




43 




FF 7F 
00 F 


2 : FF stop H 7 
Waste order 




44 




L5 2(0) 

10 20F 


' 3: V Q column count = k? 




45 




LO 1( ) 

40 F 






46 


(-18) 


L3 F 
32 F 


j 

Yes: out of subroutine 




^7 


(-19) 


FF 9F 
*U 5(0) 


No: FF stop / 9 
Yes: clear 5(0) 




48 




L5 21(N12) 
LO (-15) 


[ '""' "™ b " * "" " v ° 




^9 




46 5(0) , 
46 (-22) 


1 

n = no. words to drum 




50 




L5 15(0) 
L4 4(0) 


I 3., « ..„„ . , t «_ . ,„ 




51 




40 (-21) . 


/ 


1 






50 F 


Waste order I 
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JO 10 ( ) 


f Load column of V Q on drum 


kQO 


52 


(-20) 








50 (-20) 






53 


(-21) 


26 (Yl) 
00 F 






5^ 


(-22) 


00 F 

L5 (-21) 


« 

Increment drum starting add. for next V 




55 




IA- 8(0) 
ko (-21) 






56 




F5 1( ) 

*>K ) 


X Increase V n column count by 1 




57 


(-23) 


26 (-15) 
>1 F 


Input next V Q col. 




58 




L5 2l(N12) 
LO (-15) 


p n elements read in? 




59 




LO 5(0) 
k6 F 






60 




L3 F 

36 (-20) 


Yes: load V Q col. on drum 




61 




FF 8F 
00 F 


No: FF stop Jjf 8 
Waste order 


^90 


62 


(-2*0 


^0 13(0) 

L5 2l(N12) 
00 K 


t's input test constant 


491 





(SO 


K5 F 

h2 (S:10) 


1 Link 




1 




96 IF 
92 lk?F 


Set output to punch 
Punch k crlf 's 




2 




92 515F 
L5 13(0) 


Punch 1 2 -hole delay- 
punch 




5 




JO 22F 
50 3L 


no. cycles 




U 




26 (PI) 
92 135F 


Punch 2 crlf 




^ 




92 515F 


Punch 1 2 -hole delay 








L5 2(0) 


1 Make end 
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Abs. 


Rel. 


Sym. 


10 20F ! 


constant 




^97 


6 










^ ( ) 


1 






7 




Ml( ) 
92 131F 


Ctr. = 
Punch 1 crlf 






8 




92 515F 
F5 K ) 


Punch 1 2 -hole delay 
Punch (ctr. + l) 




500 


9 


(su) 


50 22F 
50 (S:l) 








10 




26 (Pi) 
92 967F 


2 spaces 






11 


(S:2) 


50 F 
L5 32(0) 








12 


(3:3) 


JO kkF 
50 (S:3) 


Punch no. pts. 






13 




26 (Pi) 
92 967F 


Punch 2 spaces 






Ik 


(S:*0 


50 18(0) 
L5 32(0) 


| 






15 




66 5(0) 
S5 32(0) 








16 




00 19F 
^0 F 


Punch % pts. 






17 




50 F 

7J (S:ll) 








18 


(S:5) 


J2 klF 
50 (S:5) 


- 




510 


19 

20 
21 
22 




26 (Pi) 
F5 (S;2) 
k2 (S:2) 
hi (S:*0 
F5 1( ) 
ho 1( ) 
LO ( ) 
32 (S;6) 


+ done 






i 


. 
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22 1022 (S:l 


) - loop 




5lk 


23 


(S:6) 








L5 l(S:k) 


Reset 






2k 




k2 (S:2) 








25 




k2 (S:4) 
50 2(0) - 
75 5(0) 


k x 2" 19 
nk x 2" 5 






26 


(S:7) 


*> ( ) 

92 135F 


Temp. 

Punch 2 crlf 






27 




92 515F 
92 987F 


Punch 1 2 -hole delay- 
Punch 6 spaces 






28 




L5 31(0) 

50 F 


Punch ff pts. in matrix 




520 


29 
30 


(S:8) 


JO kkF 
50 (8:8) 
26 (pi) 
92 967F 


Punch 2 spaces 






31 




50 18(0) 
L5 31(0) 


q = 






32 




66 ( ) 
7J (S:ll) 


Punch % pts • in matrix 






33 


(S:9) 


J2 kW 

50 (S:9) 








3k 


(S:10) 


26 (Pi) 
22 F 


Exit 




526 


35 


(S:ll) 


00 F 

00 2000 OOC 

00 K 


0000 J 




527 



1 
2 


(0 


K5 11F 
k2 (:2l) 
L5 20(0) 
ih 15(0) 
ko (:2) 
L5 2(0) . 


Link 

Set C matrix add. 
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Abs. 



530 



Rel. 



540 



10 
11 
12 

13 
14 

15 
16 

17 

18 

19 



Sym, 



(:l) 
(:2) 

(:3) 



(:4) 
(:5) 



(:6) 



46 
41 
92 
92 
L5 
46 

50 
50 
26 
00 
00 
92 
92 
50 
L5 
50 
52 
50 
26 

L5 
L4 
46 
LO 
LO 
36 
22 

L5 
L4 

40 

L5 
L4 

46 
LO 



(:3) 

131F 
131F 

(:D 
04) 

( ) 

(:D 

(Yl) 

F 

F 

131F 

515F 

F 

F 

10(0) 

51F 

:5) 

PI) 

*) 
16(0) 

:4) 

:23) 

(o) 
:6) 

:3) 

:2) 

(0) 

:2) 
160 ( ) 
16(0) 
160 ( ) 
2(0) 



32 (:7) 



col. ctr. ■ 



Set col. add. 



Get col. of C matrix 



Punch 1 crlf 

Punch 1 2 -hole delay 

El. of C 

Punch el. 

Adv. el. add, and test for col. end 



+ end 

- loop 

Adv. col. add. 



Adv. col. ctr. and test for matrix end 



+ end 
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Abs. 



5^7 



550 



560 



Rel. 



20 
21 
22 
23 
21*- 

25 

26 

27 
28 

29 
30 

31 
32 
33 
3h 
35 
36 



Sym. 



(:7) 



(:8) 



(:9) 
(:10) 



22 
92 
92 
L5 
50 
50 
26 
92 
92 
92 
L5 
k2 
50 
L5 
52 
50 
2b 
92 
92 
F5 
42 
LO 
32 
92 
92 
50 
75 
00 
iM 
KG 
l+l 
L5 
IA 
40 



1022 (:l) 
147F 
571F 
9(0) 

11F 
(28) 

(PI) 
131F 
770F 

135F 

(*) 
(:9) 

( ) 

F 

111F 
(:10) 
(Pi) 

131F 

515F 

(:9) 

(:9) 

1(:23) 

(:9) 

770F 

131F 

9(0) 

iT(o) 

59F 

L 

(U8) 

160 ( ) 

1(0) 

15(0) 

(:lM 



- loop 

Punch 5 crlf 's 

Punch 15 2 -hole delays 

Punch sig. digits 



Punch crlf 

N 

Punch 2 crlf 's 

Set add. 



Punch hyperplane thickness 



Punch crlf 

Punch 1 2 -hole delay 

Adv. add. and test for least hyp. add. 



+ loop 

N 

Punch 1 crlf 

Plant sig. digits in PI entry 



Switch = 



X plants 
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L5 2(0) 






564 


37 










46 (:15) 








38 




40 161 ( ) 

L5 7(0) 








39 


(:12) 


40 162 ( ) 

41 163 ( ) 


Ctr. = 






40 


(:13) 


50 ( ) 

50 (:13) 








ki 


(:lM 


26 (Yl) 

00 F 


Get col. of X or V 






k2 


(:15) 


00 F 
L5 (:13) 






570 


43 
kk 


(:l6) 


46 (:17) 

92 131F 
92 515F 
50 F 








^5 


(:17) 


L5 F 

50 10(0) 








k6 


(:18) 


52 F 
50 (:l8) 








^7 




26 (PI) 
L5 (:17) 


Punch all col, of X 


or V 




48 




L4 16(0) 
46 (:17) 








k9 




LO (:23) 

LO 161 ( ) 








50 




36 (:19) 
22 (:i6) 








51 


(:19) 


92 13IF 
92 834F 








52 




L5 (:14) 
L4 162 ( ) 
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53 




40 (ilk) 
L5 163 ( ) 
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Abs. 


Rel. 


Sym. 


IA 16(0) 


i 




581 


54 










4o l63( ) 








55 




LO 2(0) 
32 (:20) 








56 


(:20) 


22 (:13) 
LL l60( ) 


- switch 






57 




36 (:22) 

92 962F 


+ done \ 
L 






58 


(:21) 


92 139F 

22 F 


- done X and V 
and exit 






59 


(:22) 


49 160 ( ) 
92 898F 


switch = 1/2 
F 






60 




92 135F 
L5 6(0) 








61 




L4 15(0) 
4o (:l4) 








62 




L5 5(0) 
46 (:15) 


V plants 




590 


63 
6h 




40 161 ( ) 
L5 8(0) 
4o 162 ( ) 

22 (:12) 


Loop 






65 


(:23) 


L5 ( ) 

50 10(0) 


Test words 




593 


66 




JO ( ) 
L5 13(0) 

00 K 






594 




1 


(=) 


K5 222 ( ) 
42 48L 
50 2(0) 
75 8(0) 


Link 






2 




00 19F 


112k 










L4 6(0) 


End const, for 2 
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Rel. 


Sym. 


40 3F 


Store 
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3 










LO 8(0) 


End const, for 1 






4 




40 4F 
96 65F 


= 112 (k-l) 

CU R. 0. 






5 




L5 20(0) 
l4 15(0) 


U S.CLCL e 
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6 




40 12L 
40 5^L 








7 




L5 2(0) 
46 13L 


Rows in \ 






8 




k6 55L 
19 18F 


Ctr. = 1 x 2" 19 






9 




40 5F 
L5 5(0) 


Rows in V 






10 




46 18L 
46 21L 








11 




50 222 ( ) 
50 11L 


Col. of C 






12 




26 (Yl) 

00 F 


in 222 ( ) 






13 




00 F 
L5 6(0) 


1st V col. add. 






l4 




L4 15(0) 
40 17L 








15 




L4 8(0) 

40 20L 


| 2nd V col. add. 
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16 

17 

18 

19 




50 ( ) 
50 lbL 
26 (Yl) 
00 F 
00 F 
92 769F 
50 lll( ) 


1st V col. in ( ) 
Adv. film 










50 19L 




1 
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Rel. 
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26 (Yl) 


2nd V col, in lll( ) 




6lk 


20 










00 F 








21 




00 F 
26 66L 


To 66L 






22 




50 18(0) 
50 22L 


Plot axes 






23 




26 (02) 
50 111( ) 


El. 






2k 




75 59L 
00 39F 


x 5 
Q -»A 






25 




ko 6f 
50 59L 


Temp. st. 
5 
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26 




75 ( ) 

00 39F 


x el. 
Q ->A 






27 




JO 6f 
50 27L 


Plot point 






28 




26 (02) 
F5 23L 








29 




k2 23L 
L5 26L 


Inc. adds. 






30 




iA 16(0) 
46 26L 








31 




LO 5(0) 

LO 57L 


1 Test 






32 




36 33L 
22 23L 


+ done 
- loop 






33 




L5 L 
IA 5F 


Set \ look up 222 + i + ctr. 


>. 




5h 




46 35L 
50 17(0) 


1 

10 






35 




75 F 
00 39F 


10 x FR 
Q ->A 




630 


36 




50 kF 
50 36L 


Plot cos o^ 





LOCATION 



ORDER 



Abs. 
631 



640 



Rel. 
~ 

38 
39 
40 
4l 
42 
^3 

46 

47 
48 

49 

50 

51 
52 

53 



Syria. 



26 (o4) 
L5 60L 
42 23L 
46 26L 

L5 L 
L4 16(0) 
46 L 
L4 5F 
LO 2(0) 
LO 58L 
36 50L 
L5 20L 
L4 8(0) 
40 20L 
LO 3F 
LO 15(0) 
36 46L 
22 18L 
L5 1TL 
L4 8(0) 
40 17L 
LO 4F 
LO 15(0) 
32 F 
L5 17L 
26 15L 
L5 7(0) 
L4 54l 
4o 54l 

L5 5F 
L4 16(0) 
4o 5F 

50 222 ( ) 

50 53L 
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Reset 

23L 

26l 

222 + i -» 222 + i + 1 



Test for \ end of col. 



+ yes 

Inc. y 2 col, add* 



Test for V 2 col. end 

+ yes 

- loop 

Inc. V 1 col, add. 

Test for V 1 col. end 

+ out 
Set A 

- loop 
Inc. X add. 

Inc. ctr. 

Get new col. of C 



LOCAXIOH 


ORDER 


1OTB3 BMB 27 1BX.1«97 


Aba. 


Rel. 


Sy». 


26 (Yl) 




He 


$k 










00 F 






55 




00 F 
L5 58L 


1 Reset OL 


650 


56 
57 
58 

59 
60 




46 L 

75 ( ) 
00 39F 
K5 222( ) 
42 48L 
00 F 
00 5F 

00 ( ) 

00 lll( ) 






61 




00 20F 
00 20F 


r Marker constant for (02 ) 




62 




00 F 

00 100 0000 0000 J 


\ 0.01 




63 




l£ 216OF 
00 F 


"V Vertical axis label position 




6* 




87 3888F 
00 F 


\ Horizontal axis label position 




65 




L6 3584F 


\ Cosine label position 








00 F 


J 


660 


66 




50 6lL 
00 42F 


\ Form marker constant for scale calibrat 




67 




4o 28(02) 

k9 242( ) 


1/2 in A and 242 ( ) 




68 




50 242 ( ) 
50 68L 


1 Form scale calibration on scope 




69 




26 (02) 

L5 63L 


\ Set vertical axis label .position 




70 




40 29(0) 


) 






___ — _ . 


51 5F 


V Form vertical axis label from counter 



LOCATIO* 


CRDIR 


HOTB nUS 28 231. 1*97 


Jkbs. 


Bel. 


BjMm 


fcO 20F 


1 


#5 


71 










I* 17(0) 






72 




7* 62L 
35 P 


1 




73 


' 


JO 2F 
50 73L 


\ Plot vertical axis label on scope 

J 




7* 




26 «*) 

L5 64L 


J Set horizontal axis label position 




75 




4o 29(0) 

L5 L 


w Form horizontal axis label from counter 


67D 


76 
77 
78 
79 




LO 58L 
L4 5F 
L4 16(0) 
10 59F 
L5 17(0) 
7^ 62L 
35 F 
50 F 


1 and C matrix col* element number 

1 

Waste order 




80 




JO 2F 
50 80L 


1 Plot horizontal axis label 

) 




81 




26 (04) 
L5 65L 


T Set cosine label position 




82 




4o 29(0) 
4i 28(oe) 


) 

Set axes or. and mark* const* 


677 


83 




26 22L 


To 22L 








OF F 

.00.72}*- 


Waste order 

Temporary storage (722-1023) 






( ) 


JO 264F 

lo t I 

26 (Yl) 

00 2560F 
00 458F 

22 1014F 


Store (02), (o4), (Fl), (1Q2), (-), 

(S:), (:) and (=) on drim and then 
resume input 








26 ( ) 









26 IN 


_ 



LOCATION 



Abs. 



179 



Rel, 



190 



6 

7 
8 

9 
10 
11 
12 

13 
14 

15 
16 



Sym< 



(+) 



(+1) 



(+2) 



(+3) 



(+4) 
(+5) 



ORDER 



00 179K 

41 13(0) 
1H 14(0) 
L5 (+8) 

42 (+1) 
4l 28(0) 

41 F 

F5 (+1) 
kO (+1) 

L5 (+37) 
LO (+1) 
32 (+1) 
50 (+2) 
26 (-) 
50 2(0) 
75 5(0) 
10 40F 
7J (+38) 
kO (+39) 

49 (0) 
L5 2(0) 
k6 (+15) 
46 (+18) 
46 (+23) 
46 (+26) 

L5 (+5) 

42 (+4) 

50 264f 
50 (+3) 
26 (Yl) 

00 3030F 
00 458F 

22 F 
OF F 
50 (+5) 
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) 

) 
I 



J 

X 



) 



J 

) 



Clear rot. cycles count 

Set f * 

Set first Initial rot. axis instj% word add. 



Clear no© of times count 

Set initial rotating axis instr. words 



Last rotating axis instruction word? 

Nog close loop 
Yes: input data 

Form jl ^0 of total no • of pts « in V matrix 



Set VX multiplication 

Set no. of elements in X column 



Set form V~, C Q9 ^ Q branch 



Bring rotation subroutines from drum 



New problem? 

If not to (+7) 
Form V « = V^ 



LOCATION 

i — 


ORDER 
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Abe. 


Rel. 


Sym. 


26 (x) 


j 


196 


17 


(46) 








50 (+6) 


r Form CL and £- 




18 




26 (.) 








L5 (+7) 


Set do not form V', C n , ^ n branch 




19 


(+7) 


42 (+4) 
50 (+7) 


v v %/ 

[ Perform a rotation 




20 


(+8) 


26 U) 
50 («) 


j 

Address constant 


200 


21 


(+9) 


M (0) 


Set XS multiplication 




22 




50 (+9) 
26 (x) 
49 (0) 


f Form \ = [\ S J norm. 
j n n-l n 

Set VX multiplication 




23 


(+10) 


50 F 
50 (+10) 


Waste order 

f Form V = V A \ 
1 n n 




24 


(+11) 


26 (x) 








50 (+11) 


T Form C and £- 
1 n ti 




25 




26 (.) 

L5 l4(o) 


1 •H 11 

V (f n - f ) < 1 V 6 of total no. of pts. 




26 




IA (+39) 
LO 31(0) 


: 




27 




36 (+12) 
23 (+12) 


No: clear no. times count 




28 


(+12) 


F5 28(0) 

ko 28(0) 


r Yes: increment no. of times count "by 1 




29 




L5 l4(0) 
FO 31(0) 


j f n £ f T 




30 




32 (+19) 
L5 31(0) 


No: to (+19) 
r Yes: Set f = f 


210 


31 




kO 14(0) 
41 ( ) 


J 

Clear X column count 




32 




L5 15(0) 
L4 1(0) 


Set initial \ column drum address 




33 




40 (+14) 


J 1 






L5 15(0) 


T Set initial best. \ col. drum add. I 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


Ll* 30(0) 




-$3£ ?4 










1*0 (+17) 


/ 




35 


(+13) 


50 10 ( ) 
50 (+13) 


Bring a column of \ from drum 

n 




36 


(+i+) 


26 (Yl) 

00 F 






37 


(+15) 


00 F 
50 F 


Waste order 




38 


(+16) 


JO 10 ( ) 
50 (+16) 


" Store a column of best X on drum 




39 


(+17) 


26 (Yl) 
00 F 






1*0 


(+18) 


00 F 








L5 (+11*) 


r Increment X. col. drum add. 


220 


i*l 




L4 7(0) 
1+0 (+11+) 


XX 

J 




1*2 




L5 (+17) 
Ll* 7(0) 


• Increment best \ col. drum add. 




1*3 




1+0 (+17) 
L5 ( ) 


y Increment \ col. count by 1 




hk 




Ll* 16(0) 
40 ( ) 


f 




45 




L5 2(0) 
FO ( ) 


} "" k " 1 "' 




1+6 


(+19) 


36 (+13) 
L5 27(0) 


No: close loop 
V Yes: correct no. times count attained? 




47 




FO 28(0) 
32 (+33) 


1 

No: to (+33) 




1*8 


(+20) 


49 (0) 

41 ( ) 


Yes: set VX multiplication 
Clear \ column count 




49 




L5 15(0) 
Ll* 30(0) 


V Set initial best \ col. drum add. 




50 




1+0 (+22) 


J 






L5 15(0) 


r Set initial \ column drum address 1 

J n , 1 



LOCATION 


ORDER 


NOTES PAGE 32 KSL 1.97 


Abs. 


Rel. 


Sym. 


lA 1(0) 


■ 


230 


51 










kO (+25) 


J 




52 


(+21) 


50 10( ) 
50 (+21) 


) ~" " •*• " "" x "" - 




53 


(+22) 


26 (Yl) 

00 F 






^ 


(+23) 


00 F 
50 F 


Waste order 




55 


(+2*0 


JO 10( ) 
50 (+2k) 


r Store a col. of K on drum 

n 




56 


(+25) 


26 (Yl) 
00 F 






57 


(+26) 


00 F 

L5 (+22) 


J 

"T Increment best X col. drum add. 




58 




lA- 7(0) 
ho (+22) 


J 




59 




L5 (+25) 
I* 7(0) 


\ Increment X col. drum add. 

1 




60 




ho (+25) 
L5 ( ) 


J 

T Increment \ col. count by 1 


2^0 


61 




lA 16(0) 
ko ( ) 


1 




62 




L52(0) 
FO ( ) 


j. Last \ column? 




63 


(+27) 


36 (+21) 


No: close loop 




6k 


(+28) 


50 (+27) 
26 (x) 
50 (+28) 


T Yes: form V • = V n X f 
f n n 

"\ Form C ' and L ' 
) n n 




65 




26 (.) 

50 F 


Waste order 




66 


(+29) 


50 26k~F 
50 (+29) 


*"L Bring input-output subroutines from drum 




67 




26 (Yl) 




1 1 


00 2560F 


J ■ 



LOCATION 



ORDER 



Aba. 
~2kf 



250 



260 



262 



Rel. 
"68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
80 
81 
82 
83 



Sym. 
(+50) 

(+31) 
(+32) 



(+33) 
(+34) 



(+35) 



(+36) 



(+37) 
(+38) 
(+39) 



.00 458F 
50 (+30) 
26 (s:) 
50 (+31) 
26 (:) 
50 (+32) 
26 oo 
92 769F 
92 769F 

24 (+) 
26 (+3) 

20 (+7) 
50 264F 
50 (+34) 
26 (Yl) 

00 2560F 
00 458F 
50 (+35) 
26 (s:) 
24 (+3) 
50 264F 
50 (+36) 
26 (Yl) 

00 3030F 
00 458F 

26 (+20) 

in 28(0) 

41 19(') 

00 F 

00 100 0000 0000 J 

00 F 

00 F 
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) 

} 
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} 
) 



Short print data 



Print data 



Plot data 



Advance 2 frames to separate sets of plots 



On "black switch: to (+) 

On white switch: to (+3) 

On black switch: to (+7) 

On white switch: bring input-output 

subroutines from drum 



Short print data 

On black switch: to (+3) 

On white switch: bring rotation subroutines 

from drum 



Thence to (+20 ) 

Last rot. axis instr. word test constant 



0.01 



1 % of kn 



LOCATION 


ORDER 
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Aba. 


Rel. 


Sym. 


00 264K 


Square root library subroutine on drum 


261* 





(Rl) 








00 K 




273 





(/) 


K5 F 

^ (/75) , 


\ Plant link 




1 




L5 2(0) 

ke (A) 


Set no. of elements in S matrix and C 
matrix col. drum transfers 




2 




46 (/16) 
46 (/21) 






3 




46 (/74) 

10 20F 


"I Store k as right hand address 




k 




40 11( ) 


J 


. 






L5 5(0) 


1 Set no. of elements in V matrix col. 




5 




^ (/13) 
46 (/24) 


1 drum transfers 




6 




10 20F 
40 12 ( ) 


Store n as right hand add. 


280 


7 
8 




L5 15(0) 
L4 3(0) 
^0 (/3) 
40 (/73) . 


1 Set initial S matrix column 
drum address 

j 




9 




L5 15(0) 
L4 6(0) 


1 Set initial rot. axis V matrix col. dm 




10 




40 (/12) 
L5 15(0) 


Set initial ^ matrix col. drum add. 




11 




L4 19(0) 
40 (/15) 


J 




12 




L5 (/8) ' 
^2 (/l) 


\ Set initial S matrix col. add. 




13 




L5 11 ( ) 
L4 (/I) 






Ik 


(A) 


40 15( ) 

41 F 


) 

7_ Clear an S matrix col. 




15 




F5 (A) 










^0 (A) 


J 



LOCATION 



Abs. 



289 

290 



300 



Rel. 



16 

17 
18 

19 
20 
21 
22 

23 
2k 

25 
26 

27 
28 

29 
30 
31 
32 



Sym. 



(/2) 
(A) 

(A) 



(A) 



(/6) 
(/7) 
(/8) 



ORDER 



L5 13 ( ) 
FO (/l) 
32 (/l) 

^1 13 ( ) 

JO k0( ) 

50 (/2) 
26 (Yl) 
00 F 
00 F 
L5 7(0) 
I* (/3) 
^0 (*/3) 
F5 13 ( ) 
^0 13( ) 
L5 11 ( ) 
FO 13( ) 
36 (A) 

M K ) 

L5 15(0) 
IA 3(0) 

k) (Ao) 

L5 15(0) 
IA 6(0) 
^0 (A3) 
L5 (A) 

I* K ) 
42 (/7) 
50 (') 
M2( ) 
L5 F 
^0 ( ) 

50 ko( ) 
L3 (A) 
^2 (/9) 



} 
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T 



) 
] 



) 



} 



1 



Last S matrix column element? 

No: close loop 

Yes: clear col, count 

Clear S matrix col. on drum 



Increment S matrix column drum add. 



Increment col. count by 1 

Last S matrix column? 

No: close loop 

Yes: cl. rot. axis col. count 

Set initial against axis S matrix col. 

drum add. 

Set initial against axis V matrix col. 
drum add. 

Form rot. axis instr. word add. 



Address constant 

Clear ag. axis col. count 

Load rotating axis instr. word 

Address constant 

Form initial S matrix col. element add. 



LOCATION 



Abs. 



306 



310 



320 



Rel, 



33 

34 
35 
36 

37 
38 

39 
40 
41 
42 

43 
44 

45 
46 

47 
48 

49 



Sym. 



(/9) 



(Ao) 
(AD 
(/12) 

(A3) 

(A5) 
(/16) 



(A7) 



ORDER 



L5 11 ( ) 
L4 (/9) 

40 13( ) 

41 F 

F5 (/9) 
40 (/ 9 ) 

L5 13( ) 
FO (/9) 
32 (/9) 
L5 (/8) 
L4l( ) 

42 (Ao) 
59 F 

40 F 
50 80 ( ) 
50 (Al) 
26 (Yl) 
00 F 
00 F 
50 10(0) 
50 20 ( ) 
50 {/Ik) 
26 (Yl) 
00 F 
00 F 

L5 1( ) 
LO 2( ) 

40 13( ) 

L3 13( ) 

32 (At) 
26 (/19) 

F5 2( ) 

40 2( ) 

L5 7(0) 



I 



"V 



NOTES 



PAGE 36 KSL 1.97 



} 
l 



Form clear rot. axis S matrix col. 
element test constant 

Clear rot. axis S matrix column 

Last S/matrix column element? 

No: close loop 

Yes: store unit x 1/2 entry to form 

unit S matrix column 



Bring rot* axis V matrix col. from drum 



Address constant 

Bring rot. axis Z matrix col. from drum 



Rotating axis col. no. = against axis 
col. number? 



No: to (/l9) 

Yes: increment against axis col. count by 1 

Increment against axis S mat. col. drum add. 



LOCATION 



Abs. 



323 



330 



Rel. 



50 
51 

52 
53 
54 
55 
56 
57 
58 

59 
60 
6l 
62 

63 
64 
65 
66 



Sym, 



(/18) 
(/19) 
(J 20) 

(/21) 

(/22) 

(/23) 

(M) 



ORDER 



(/25) 



(/26) 
(/27) 



IA (/20) 
4o (/20) 
L5 8(0) 

lM/23) 
40 (/23) 
50 80 ( ) 

50 60 ( ) 

50 (/19) 
26 (yi) 

00 F 
00 F 
50 20 ( ) 
50 191 ( ) 

50 {J 22.) 
26 (Yl) 
00 F 

00 F 

51 ( ) 

00 2F 
40 9( ) 
L4 (A3) 
42 (/26) 

S5 F 

4o ( ) 
F5 (A3) 
IA 9( ) 
42 (/27) 
L5 F 
40 6( ) 
If) F 

40 7 ( ) 
L3 9( ) 

32 (/28) 

41 18 ( ) 
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X 



) 



} 



1 



J 

} 

- 

} 

ft 



Increment against axis V matrix col. 
drum add. 



Add. constant 

Bring against axis S matrix col. from drum 



Address constant 

Bring against axis V matrix col. from drum 



Form rotating axis instr. number 



Form current hyp. thickness add. 



Store rot. axis instr. word back 



Form current no. of degrees/trial rot. add 



Store current hyp. thickness 

Store current no. degrees/trial rot. 

Rot. axis instruction no. =0? 

No: set rot. axis instr. word mod. = 0. and 

to (/29) 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


22 (/29) ■ 


J 


3^0 


67 


(/28) 








F5 9( ) 


[ Yes: set rot, axis instr. word mod. = 1 




68 


(/29) 


40 18 ( ) 

1+1 5( ) 


J 

Clear gr. ace. load, count 




69 




M 19 ( ) 
L5 (/18) 


Clear high fac. load, count 
\ Set initial rot. axis V matrix col. entry 




70 




h2 (/30) 
L3 12 ( ) 


J 

Form unrotated acceptable load, count end 




71 




iA (/30) 
4o 13 ( ) 


test 




72 


(/30) 


L3 6( ) 

L2 F 


1 Unrotated col. entry > hyp. th.? 




73 




32 (/99) 
LO 6( ) 


No 2 to (/99) 

Yes: unrot. col. entry > hi. fac. load. 




7k 




IA (/77) 
32 (/31) 


J min.? 

No: to (/3l) 




75 




F5 19 ( ) 


T Yes: increment hi. fac. load, count by 1 








1+0 19 ( ) 




76 


099) 


22 (/31) 
F5 5( ) 


Then to (/3l) 

Increment gr. ace. load, count by 1 


350 


77 
78 

79 


(/31) 


^0 5() 
F5 (/30) 
1+0 (/30) 

L5 15( ) 
FO (/30) 
36 (/30) 


) 

1 Set up next column entry 

l Last col. entry? 
No: close loop 




80 




L5 19 ( ) 
10 2F 


Set unrotated criterion sum as greatest 




81 




I* 5( ) 

1+0 lk( ) 


) 




82 




M 8( ) 

L5 2( ) ' 


Clear no. trial rot. count 
\ Set Z- matrix column entry add. for prim* 




83 




L4 (/21) 


angle between axes 


1 






1+2 (/32) . 


J 



LOCATION 



ORDER 
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Abs 



357 



360 



Rel. 



370 



85 
86 

87 
88 

89 
90 

91 
92 

93 
9^ 
95 
96 
97 
98 
99 
100 



Sym. 



(/32) 
(/35) 



(/3M 



(/35) 



(/56) 

(/37) 



(/38) 



L5 (/36 

L5 l( ) 

IA (/39 
^2 (/33 
L5 F 
^0 10 ( 
L5 F 
irO 13 ( 
L3 13 ( 
36 (/1*0 
L5 F 
12 13( 
40 F 
L3 F 
32 (/35 
F5 (M 
40 (/3^ 
22 (M 
L5 (M 
LO (/36 
IA (Ai 
k2 (/37 

50 ('4) 

30 F 
L3 F 
i+0 F 
L5 13( ) 
56 (,/38) 
L5 10 ( ) 
IA F 

26 (/39) 
L5 10 ( ) 
LO F 



) 



) 
) 



J 



1 



} 

) 



) 



Form init. S Mat. entry rot. const. 

search add. 

Form against axis S matrix col. entry add. 



Store primary angle between axes 

Store against axis S matrix col. entry 

Column entry = 0? 

Yes: to (/ko) 

No: I against axis S mat. col. entry | = S 

matrix entry rot. constant? 



Yes: to (/35) 

No: increment S mat. entry rot. const, add. 



Close loop 

Form add. of word containing no. of 

degrees for S matrix entry rot. const, 



Address constant 

Waste order 

Store degrees in rotated angle betw. axes 

S matrix entry rot. const. > 0? 



No: add. rot. angle betw. axes to pri. angle 



Then to (/39) 

Yes: subt. rot. angle betw. axes from 

pri. angle 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


40 10( ) 


Store angle betw. axes 


37^ 


101 


(/39) 








50 6o( ) 


Address constant 




102 


(Ao) 


51 21(0) 
10 IF 


' Form angle of initial trial rotation 




103 


(AD 


75 7( ) 
SI ('I) 






104 


(A2) 


4o 15 ( ) 
L5 25(0) 


J 

V Will this trial rotation bring axes 




105 




LO 10( ) 
LO 15( ) 


I on or within min. angle? 




106 




36 (A4) 
>5 8( ) 


Yes: to (/kk) 

No: last trial rotation? 


380 


107 




LO 21(0) 
36 (A8) 


J 

Yes: to (/48) 




108 




L5 26(0) 
LO 10 ( ) 


No: will next trial rot. bring angle 
between axes outside of max, angle 




109 




LO 15 ( ) 
LO 7( ) 


J 




110 


(A3) 


36 (A8) 

L5 21(0) 


No: to (A8) 
V Yes: set up false last trial rot. 




111 




40 8( ) 

26 (/48) 


J 

Then to '(/48) 




112 


(M) 


4l l4( ) 
F5 8( ) 


Set gr. crit. sum = 
r Last trial rotation? 




113 




LO 21(0) 
36 (A8) 


J 

Yes: to (/kQ) 




114 
115 


(A5) 


L5 7( ) 
L4 15 ( ) 
40 15 ( ) 
L3 15 ( ) 


\ No: increment angle of trial rotation 
"I Angle of trial rotation = 0? 




116 




36 (/46) 
22 (A7) 


No: to (A7) 
\ 

Yes: increment angle of trial rot. again 


390 


117 


(A6) 


L5 7( ) 








H 15 ( ) 





LOCATION 



Abs. 



391 



Bel. 



400 



118 

119 

120 
121 

122 

123 
124 

125 
126 

127 
128 

129 

130 
131 



Sym. 



(A7) 



(A8) 



(A9) 



ORDER 



(/50) 



135 



13^ 



(/51) 



(/52) 



(/33) 



40 
F5 
4o 
22 
41 
Lp 
42 
41 
41 

L3 
L2 
40 
L3 
32 
F5 
40 
22 
L5 
LO 
42 
L4 
42 

L3 
L4 
42 
IF) 
40 
L5 
40 
LI 
32 
LI 
40 
L5 



15 ( 
8( ) 
8( ) 

(A2 

3( ) 

(M 

(A9 

H ) 

19 ( 

F 

13 ( 

13 ( 

13 ( 
/50 
A9 
/49 
/49 
A9 
/4i 

3( 

/6l 

/51 

3( 

/55 

/52 
F 

16 ( 
F 

17 ( 
15 ( 
(/53 
17 ( 
17( 
3( ) 
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J 
} 



X 



/ 



} 



Increment no. of trial rot. count by 1 

Then to (/k2) 

Clear col. entry count 

Set initial degree search address 

Clear ace. load, count 

Clear high factor load, count. 

(Angle of trial rot.l = degrees in table? 



Yes: to (/50) 

No: increment degrees table add. 

Close loop 

Form table add. increment for rot. const 

addresses 



Form add. of cur. rot. axis col. rot. const. 



Form add. of current against axis col. 
rotating constant 

Load current rot. axis col. rot. const. 



Load current against axis col. rot. const. 



Angle of current trial rotation > 0? 



Yes: Make cur. ag. axis col. rot. const, 
negative 



1 



No: form rotating axis V mat. col. entry add. 

1 



LOCATION 



ORDER 



NOTES 



PAGE 42 KBL 1.97 



Abs 



458 



4lO 



1*20 



Rel, 



135 
136 

137 

138 

139 
i4o 
i4i 

142 
l43 
144 
145 
146 
147 
148 
149 
150 
151 



Sym, 



(M) 

(/55) 
(/56) 



(/57) 



(/58) 



L4 (/18) 

42 (M) 

L5 3( ) 

L4 (/59) 

42 (/56) 

50 F 

7J 16 ( ) 
50 ('3) 

40 F 
50 F 

7J 17( ) 
L4 F 
40 F 
L7 F 
LO 6( ) 
32 (/57) 
F5 4( ) 
40 4( ) 
26 (/ 5 8) 

L5 (/77) 
12. F 
36 (/58) 
F5 19 ( ) 
^0 19 ( ) 
F5 3( ) 
40 3( ) 
L5 12 ( ) 
FO 5( ) 
32 (/55) 
L5 19 ( ) 
10 2F 
L4 4( ) 
40 F 

10 14 ( ) 



; 



I 
) 



"I 



i 

y 

) 



1 



1 



Form against axis V mat. col. entry add. 



(Rot. axis col. entry) x (its rot. const.) 



Address constant 

Store product 

(Ag. axis col. entry) x (its rot. const.] 

Add the two products and store 

Result within cur. hyp. thickness? 

No: to (/57) 

Yes: increment ace. load, count by 1 

Then to (/58) 

Result > high factor loading min.? 



Yes: increment high factor load, count by 1 



No: increment col. entry count by 1 

Last colo entry? 

No: close loop 

Yes: form (acceptable load count) + l/4 

(high factor load, count) ~ crit. sum and 

store 

Criterion sum > greatest criterion sum? 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


FO F 


J 


1*25 


152 










36 (/63) 


No: to (/63) 




153 




L5 4( ) 

40 5( ) 


J Yes: store ace. load, count as greatest 




154 




L5 F 

40 14 ( ) 


1 Store criterion sum as greatest 




155 




L5 13 ( ) 

1^ (/36)' 


\ Form rot. axis S mat. col. entry rot. 
1 const . address 




156 


(/59) 


42 (/60) 

50 191 (' ) 


J 

Address constant 


430 


157 




L5 2( ) 
IA- (/8) 


1 Form rot. axis S mat. col. entry add. 




158 


1/60) 


42 (/62) 

L5 F 


J 

V Store S mat. col. entry rot. const. 




159 




"40 F 
LI 15 ( ) 


J 

Cur. tr. rot. angle > 0? 




160 




36 (/62) 

LI F 


No: to (/62) 
"l Yes: Make S mat. col. ent. rot. const, neg. 




161 


(/6l) 


40 F 
50 ('2) 


J 

Address constant 




162 


(/&) 


L5 F 
40 F 


> Load rot. axis S mat. col. entry ■ 




163 


(/63) 


F5 8( ) 
LO 21(0) 


r Last trial rotation? 




164 




36 (/6k) 

26 (/4 5 ) 


J 

No: close loop 




165 


(M) 


L5 9( ) 

FO 18(0) 


Yes: is middle hyp. thickness being used? 




166 




40 F 
L3 F 




440 


167 




36 (/65) 
26 1/67) 


J 

No: to (/67) 




160 


(/65) 


50 18(0) 


r Yes: are > 7O ? of the total no. of pts. 








LI 5( ) 


within the greatest acceptable load, count 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


66 12 ( ) 






442 


169 












S5 F 








170 




L4 (/76) . 
36 (/67) 


No: to (/67) 






171 


(/66) 


F5 18 ( ) 
40 18 ( ) , 


r Yes: set rot. axis instr. word mod. = 1 










1 
f 






172 


(/67) 


L5 (/6) 

L4 1( ) 


V Form rot. axis instruction word add. 






173 




42 (/70) 












^2 (/71) J 






174 




L5 l( ) "I Form rot. axis instr. word mod. shifter 










LO 2( ) 


using against axis col. count if rot. 






175 




56 (/68) 
Fl 18(0) 


axis col. count > against axis col. 
count otherwise use (against axis col. 






176 




L42( ) 
22 (/68) 


count -l) 




450 


177 
178 
179 


(/68) 


L5 2( ) 

40 F 
L4 F 
40 F 
F5 F 
42 (/69) 


* 






180 




50 18(0) 
L5 18 ( ) 


Modify proper no. in rot. axis inst. word 






181 


(/69) 


00 38F 

10 F 








182 


(/70) 


50 F 

L4 F 


* 






183 


(/7l) 


50 F 
40 F 


Waste order 

Store rot. axis instr. word back 






184 




L5 7(0) 
L4 (/20) 


* Increment against axis S matrix col. 
drum address 






18'; 




40 (/20) 


J 










L> 8(0) 


V Increment against axis V mat. col. drum ac 


id 
1 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


IA (/23) 


1 


^59 


186 










40 (/23) ^ 


k6o 


187 




F5 2( ) 


Increment against axis col. count by 1 








^0 2( ) J 




188 




LO 11 ( ) 
36 .(/72) 


Last against axis? 
Yes % to (/72) 




189 




Fl 18(0) 
IA 11 ( ) 


No; Last rotating axis? 




190 




FO 1( ) 
32 (/16) 


No; close loop 




191 




Fl 18(0) * Yes; next to last against axis? 








lU 11 ( ) 






192 




FO 2( ) 
32 (/16) 


No; close loop 




193 


(/72) 


JO ko( ) 
30 (/72) 


>* Yes; store rotating axis S matrix col. 
on drum 




194 


(/73) 


26 (Yl) 

00 F 






195 


(M) 


00 F 
L3 8(0) 


j 

Increment rotating axis V mat. col. 




196 




I* (/12) 
kO (/12) 


drum address 


470 


197 




L5 7(0) 
I* (A5) 


f Increment rot. axis/ mat. col. drum add. 




193 




^0 (/13) 
L3 7(0) 


\ Increment rot. axis S mat. col. drum add. 




199 




L4 (/75) 








^0 (/73) 


> 




200 




F3 1( ) 


r Increment rot. axis col. count by 1 




201 




40 l( ) 

L5 11 ( ) 
FO l( ) 


J 

Last rotating axis? 




202 




56 (/ 5 ) 


No; close loop 


L_ 






F3 13(0) 


1 Yes; increment rot. cycles count by 1 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


4o 13(0) 


j 




kj6 


203 


(/75) 








22 F 


Out of subroutine 






204 


(/76) 


00 F 

00 5000 0000 0000 J 


] 0.50 




kjQ 


205 


(/77) 


00 F 

00 500 0000 0000 J 

00 K 


1 0.50 x 10" 1 




479 





(x) 


K5 131 ( ) 
42 (lOx) 


Link 




480 


1 




LI (0) 
32 (Ix) 


Mode word 
+ AS, - VA 






2 




L5 1023 (I5x) 
42 (l4x) 


Set store add. 






3 




4l 31(0) 
50 F 


Sum box = 
Waste order 






4 




L5 4(0) 
L4 15(0) 


Plant M 1 add. 






5 




40 l(4x) 
L5 1(0) 


Plant M 2 add. 






6 




L4 15(0) 
40 l(3x) 








7 




L5 6(0) 
L4 15(0) 


Plant M jt add. 






8 




40 l(8x) 
L5 5(0) 


Plant /f rows in M 1 and M it 






9 




46 2(4x) 
46 2(8x) 








10 




L5 8(0) 
4o 3F 


Drum inc. 




490 


11 


(lx) 


26 (2x) 
L5 1(0) 


Skip 






12 




L4 15(0) 


Plant Ml add. 









1 


40 l(4x) 

— ,_ 







LOCATION 



Abs. 



492 



Rel. 



500 



Sym. 



(2x) 



13 

l4 

15 

16 

17 
18 

19 
20 
21 
22 
23 
24 

25 
26 

27 
28 
29 fcx) 



ORDER 



(3x) 



(4x) 



L5 3(0) 
L4 15(0) 
40 l(3x) 
L5 l(lOx) 
40 l(8x) 
L5 2(0) 
46 2(4x) 
46 2(8x) 
L5 7(0) 

40 3F 
L5 2(0) 
46--2(3x) 

41 4F 

41 131 ( ) 
F5 l(2x) 
40 l(2x) 
LO 2(l0x) 
32 l(2x) 
L5 2(3x) 

42 l(2x) 
50 ( ) 
50 (3x) 
26 (Yl) 
00 F 

00 F 

50 131 ( ) 
50 20 ( ) 
^0 (4x) 
26 (Yl) 
00 F 
00 F 
40 F 
50 ( ) 
26 l(5x) 
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Plant M 2 add. 



Plant M it temp. add. 



Plant $ rows in M 1 and M it 



Drum inc. 



Plant / rows in M 2 



End ctr. = 



Clear sum boxes 



Reset 



Col. of M 2 in ( ) 



Col. of M 1 in 20 ( ) 



Waste order 



LOCATION 


ORDER 
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•~a_n 


Abs. 


Rel. 


3ym. 


7J 20( ) 

kO F 


a ll b ll 




509 


30 




510 


31 




50 F 
LI (0) 


11 in Q 
Mode word 






32 




36 (6x) 
75 17(0) 


+ \S 

x 10 . 2' 59 






33 




00 39F 

ho F 


Q ->A 






34 


(6x) 


L5 F 

L4 151 ( ) 


+ sum box 






35 




40 13l( ) 
F5 (6x) 


To sum box 






36 




40 (6x) 
L5 16(0) 


Inc. M 1 element add. and test for col. 


» end 




37 




L4 l(6x) 
4o l(6x) 








38 




L5 l(5x) 
L4 16(0) 








39 




ho l(5x) 
LO 2(4x) 








40 




LO 3(lOx) 
32 (7x) 


+ end 




520 


hi 
42 


(7x) 


26 (5x) 
L5 (hx) 
h6 l(5x) 
L5 (x) 


- loop 






43 




hG i(6x) 
L5 2(3x) 


Reset 






44 




42 (6x) 












L5 (5x) 


Inc. M 2 element add. and test for col. 


end 




^5 




L4 16(0) 
46 (5x) 








46 




LO 2(0) 












LO 4(lOx) 







LOCATION 


ORDER 
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Abs 


. Rel. 


Sym. 


36 (llx) 


+ end 




526 


hi 










L5 l(4x) 


Inc. M 1 col. add. 






kQ 




L4 3F 
iK) l(4x) 








k 9 




26 (ifx) 

50 F 


Loop 

Waste order 






50 


(8x) 


JO 151 ( ) 
50 (8x) 


Store col. of U it 




530 


51 
52 
53 




26 (Yl) 

00 F 
00 F 
L5 l(8x) 
Lk 3F 
kO l(8x) 


Inc. M 71 col. add. 






5^ 




LI (0) 
56 (9x) 


Mode word 
+ \S 






55 




L5 k(o) 






1 




22 (9x) 


Reset M 1 col. add. 






56 


(9x) 


L5 1(0) 
Lk 15(0) 








57 




kO l(kx) 
L5 (5x) 


Reset M 2 element add,. 






58 




kb (5x) 
L5 l(5x) 


Inc. M 2 col. add. 






59 




IA 7(0) 
kO l(3x) 








60 




L5 ^F 
Lk 16(0) 


Inc. end ctr. and test 




5^0 


61 




A4-0 4f 

LO 2(0) 








62 




56 7(9x) 
22 l(2x) 


+ done 
- loop 






63 




LI (0) 


Mode word 




1 




36 (R) 


+ \S 





LOCATION .^. 


ORDER 
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Abs, 


Rel. 


Sym. 


50 F 






5^3 


6k 


(lOx) 










22 F 


Out 






65 




26 (Yl) 

00 10080F 


Temp. M it add. 






66 




Nl kF 

*H 2^2 ( ) 


Test constants 






61 




7J 20( ) 

00 F 








68 




50 ( ) 
26 l(5x) 








69 


(llx) 


LI (0) 
32 (8x) 


Mode word 

+ exit cos XS 






70 




L5 1023 (I2x) 
h6 (I2x) 


-VX 

Set V add. 




550 


71 




50 131 ( ) 
4l (I5x) 


Ctr. = 






72 


(I2x) 


L7 F 

L2 12(0) 


V element 






73 




32 (I3x) 
F5 (I5x) 


+ no good 
- inc . count 






7^ 


(I5x) 


^0 (l^x) 
L5 (I2x) 








75 




IA 16(0) 
k6 (l2x) 


Adv. 






76 




LO (l6x) 
LO 5(0) 








77 




36 (l^x) 
26 (I2x) 


+ done 
- loop 






78 


(l^x) 


L5 (I5x) 

ho F 


1 Store / 






79 




IA 31(0) 
ho 31(0) 


+ sum box 






80 




F5 (l^x) 


Adv. store add. 








1 


40 (l4x) 


— i.' 





LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


22 (8x) 




5& 


Si 










00 32(0) 


Exit 




82 


(15x) 


00 F 
00 F 


Ctr. 


562 


83 


(l6x) 


L7 131( ) 
L2 12(0) 

00 K 


Test constant 


563 





(R) 


L5 l(lOx) 
40 l(lR) 


1 Plant temp. M -a add. 




1 




L5 1(0) 

l4 15(0) 


Plant destination M it add. 




2 




*K) l(5R) 
L5 2(0) 


Plant 14 rows in M it 




3 




46 2 (IB) 
46 2(5R) 






4 




4l 3F 

4l F 


End ctr. = 
Sum box = 




5 


0») 


50 ( ) 
50 (IB) 


Col. of M it in ( ) 




6 




26 (Yl) 

00 F 


- 


570 


7 




00 F 
50 ( ) 


El. 




8 




7J ( ) 

L4 F 


HI 2 
+ sum box 




9 




40 F 

F5 2(1R) 


To sum box 




10 




40 2(1R) 
L5 3 (IB) 


Inc. adds and test for col. end 




11 




Lk 16(0) 
46 3 (IB) 






12 




LO 2(0) 










LO l(6R) 





LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


36 (2R) 


+ done 




576 


13 












22 2(1R) 


- loop 






Ik 


(2R) 


L5 (6r) 
k2 2(1R) 








15 




L5 (1R) 
k6 3(1R) 


Reset 






16 




L5 F 






58O 


17 




50 2(2R) 
26 (Rl) 
40 F 


f£ 






18 


(3R) 


50 ( X 

75 2(6r) 


El. 

KJ oJL 6JL a 






19 




66 F 
S5 F 


Normed el. 
Q -»A 






20 




^0 ( ) 
L5 (3R) 


St. el 
n 






21 




L4 16(0) 
k6 (3R) 


Ine . adds, and test for col . end 






22 




46 2(3R) 
LO 2(0) 








23 




LO 3(6R) 
32 (4b) 


+ done 






24 


(kB) 


26 (3R) 

L5 (IB) j 


- loop 




- 


25 




k6 (5R) j 
46 2(3R) 


1 

Reset 






26 


(5R) 


JO ( ) 
50 (5R) 


Store col. of M it 




590 


27 
28 




26 (Yl) 
00 F 
00 F 
L5 1(1R) 








29 




L4 7(0) 

40 1(1R) 

, 


Inc . adds. ctr. and test 





LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


L5 1(5R) 








593 


30 










L4 7(0) 










31 




40 l(5R) 
L5 3F 










32 




L4 16(0) 
40 3F 










33 




LO 2(0) 














56 (lOx) 


+ done 




; 


3* 


(6R) 


22 4(R) 


- loop 










00 ( ) 










35 




7J ( ) 

L4 F 




Constants 






36 




00 F 

00 1000 0000 0000 J 








600 


37 




50 ( ) 

71 2(6r) 












00 K 






601 





(.) 


K5 4o( ) 
42 (.13) 


Link 






1 




4l 3F 
50 15(0) 


End ctr. = 






2 




L5 1(0) 
S4 6o( ) 




Plant K^ add. 






3 




40 l(.2) 
L5 19(0) 




Plant/ add. 






4 




S4 F 

40 l(.ll) 










5 




L5 20(0) 
S4 ( ) 




Plant C add. 






6 




40 l(.12) 
L5 2(0) 










7 




46 2(.2) 




Plant rows in X., 


Xp, ^ and C 




« 




46 2(.3) 


1 







LOCATION 



ORDER 
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Abs. 



Rel, 



609 
6lO 



620 



8 

9 

10 
11 
12 

13 
11+ 

15 
16 

17 

18 

19 
20 
21 
22 
23 

2k 



Sym. 



(.1) 



(.2) 



(O) 



(.*) 



1+6 2 (.11) 
k6 2(.12) 
L5 1(0) 

l4 15(0) 

40 1(.3) 

L5 L 
^6 l(.9) 
L5 2(.) - 
1+2 (.6) 
1+1 (.11+) 
50 ( ) 
50 (.2) 
26 (Yl) 
00 F 
00 F 
1+1 F 
50 20( ) 
50 (.3) 
26 (Yl) 
00 F 
00 F 
L5 3(.) 
1+2 (.U) 
L5 2 (.14) 
1+0 1(.1+) 
50 ( )' 

75 20 ( ) 

00 6f 

L4 F 
1+0 F 

F5 (.1+) 
1+2 (.1+) 

L5 1(.4) 
Ll+ 16(0) 



Plant X^ add. 



*2 



Plant col. start f or /. 



Plant col. start for C 



9 box = 



Col. of 



*i 



Sum box = 



Col. of 



*2 



Plant add. for X^ el. 



*2 



Plant add. for K, el. 



\ 



Form Z x. y. 
1 J i 

1 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


46 l(.4) 








626 


25 












LO 2(0) 










26 




LO 2 (.14) 
36 2(.5) 


+ done 








27 


(.5) 


22 (.4) 
F5 (.14) 


-loop 

9 ->© + 1 








28 




42 (.14) 
26 2(.8) 


Skip 


*8fc 




63O 


29 




50 F 
75 17(0) 










30 


(.6) 


00 33F 
40 60 ( ) 


Z 

El. of C matrix 








31 




F5 (.6) 
42 (.6) 


Inc. row add. for C 








32 




L5 3(.l4) 
42 (.7) 


Set table start add. 








33 




L7 F 
40 IF 










34 




10 20F 
50 18(0) 


Construct test word 








35 




00 IF 
50 IF 










36 




00 19F 

40 IF 










37 


(.7) 


L5 IF 
LO F 


Test word 

(Test -table) word 








38 




50 18(0) 
32 (.8) 


+ this word 






64o 


39 




F5 (-7) 
42 (.7) 


- inc. table add. 








4o 


(.8) 


26 (.7) 
00 20F 


Loop 

Try next l/2 word 








4i 




36 2(.8) 


4- this part 








1 




22 (.5) 


- inc . by 1 







LOCATION 
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Abs. 


Rel. 


Sym. 


11 IF 


q-L - 






643 


42 












L5 (.7) 










43 




LO 3(.l4) 
00 IF 


Form 9 








44 




L4 (.14) 
42 (.14) 










45 




L5 F 


Virgin word 












32 (.9) 


+ done 








46 




L5 l(.l4) 
LO (.14) 


-* 180 - 9 








^7 


(.9) 


40 (.14) 
L5 (.14) 










48 




40 4o( ) 
L5 1(.3) 


Store 9 
Inc. \ 






650 


49 




L4 7(0) 
40 l(.3) 










50 




L5 1(.9) 
L4 16(0) 


Inc. add. of 9 and test for 


col. end 






51 




46 1(.9) 
LO 2(0) 










52 




LO 4 (.14) 
32 (.10) 


+ end of col. 








53 


(.10) 


22 3('.l) 
L5 1(.2) 


- loop 








54 




L4 7(0) 
40 1(.2) 


Inc. A_ 








55 


(.11) 


JO 4o( ) 
50 (.11) 


Store col. of 9 








56 




26 (Yl) 

00 F 










57 




00 F 
4l (.14) 


9 box = 








58 


(.12) 


JO 60 ( ) 
50 (.12) 


Store col. cSf cos 9 







LOCATION 



Abs. 



Rel. 



660 



670 



59 
60 

61 
62 

63 
6k 

65 
66 

67 
68 

69 
70 
71 
72 
73 
7^ 
75 



Sym. 



(.13) 



(.HO 



(.15) 



ORDER 



26 (Yl) 

00 F 
00 F 
L5 3F 
L4 16(0) 
40 3F 
LO 2(0) 
32 F 

L5 1(.H) 
L4 7(0) 
40 l(.ll) 
L5 1(.12) 
L4 7(0) 
40 l(.12) 
26 (.1) 
OF F 
00 F 
00 F 
00 F 
00 180F 
75 20 ( ) 
00 6F 
L5 IF 
LO (.15) 
40 40( ) 

L5 1(.3) 

51 3654F 
51 5755F 
51 3141F 
51 3450F 
51 2225F 
51 2735F 
51 896F 
51 1611F 
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End? 



Exit if + 



Inc . adds, if - 



V 



Loop 

Waste order 
9 

180 



Constants 



Table of cosines scaled by 64/100 



LOCATION 



Abs. 



677 



680 



690 



Rel. 



76 
77 
78 
79 
80 
81 
82 

83 
84 

85 



Sym. 



87 
88 

89 
90 

91 
92 



ORDER 



50 3264F 

51 84f 
50 112 7F 
50 2244F 

41 2689F 

4L 4008F 
4f 3853F 
4L 1273F 
4f 52'7F 
4f 2239F 
4j 905F 
4j 2811F 
4N 901F 
4N 2998F 
4S 5l4F 

4s 2803F 
49 3851F 
4k 2228F 

48 2719F 

49 1281F 
47 1228F 
47 4067F 

45 3475F 

46 2393F 

44 1279F 

45 371F 

42 2837F 

43 2100F 

40 40oOF 
4i 349IF 
3L 865F 
4o 456F 
3 J 145 3F 
3F 1199F 
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LOCATION 



ORDER 



NOTES 
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KSL 1.97 



Abs. 



694 



700 



710 



Rel. 



93 
9^ 
95 

96 

97 

98 

99 

100 

101 

102 

103 

10if 

105 

LOC 

10? 
108 
109 



Sym, 



3S 1730F 
3N 165OF 
59 171^F 
3K 1759F 

57 l^lOF 

58 1596F 

35 -831F 

36 115^F 
32 koQOF 
34 J+l^-iF 

30 2980F 

31 3562F 
2F l6i+0F 
2L 2339F 
2N 6^F 
2J 880F 
29 2366F 
2K 3290F 

27 36^F 

28 1389F 
2h 2264F 
25 3386F 
21 3979F 
2;^ 1095F 
1L 1^30F 
20 2726F 
IN 282 3F 
IF 97F 
19 4068F 
IS 1416F 

17 1093F 

18 2598F 
Ik- 209^+F 
15 3fc55F 



LOCATION 


ORDER 
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Abs. 


Rel. 


Sym. 


11 2993F 




711 


110 










13 509F 






111 




OF 3806F 

10 1361F 






112 




ON 414-5F 
OJ 213^F 






113 




09 1120F 
OK 2839F 






Hk 




06 1751F 

07 3^90F 






115 

116 




03 23^8F 
05 5F 

00 2929F 

02 595F 




718 


117 




00 F 




- 






00 F 


J 








00 722K 









( ) 


JO 26kF 
50 ( ) 


Store (Rl), (/), (x) , {r), and (.) on drum 




1 




26 (Yl) 

00 3030F 






2 




00 458F 

50 F 


j 




3 




50 26kF 


I Bring input -output subroutines from drum 
and resume input 








50 3( ) 




k 




26 (Yl) 

00 2360F 






5 




00 U58F 
22 10li+F 

26 ( ) 

261N 


j' 








24(+) 26lN 


Start routine 



